unit uFenster;
(* ******************************************************************** *)
(* K L A S S E : TFensterFrm  - Karel D. Robot                          *)
(* -------------------------------------------------------------------- *)
(* Version     : 2.3                                                    *)
(* Autor       : (c) 2004, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse hat Control/Viewfunktion für die Welt und   *)
(*               die Akteure.                                           *)
(* Compiler    : Delphi 6.0                                             *)
(* Aenderung   : 2.0    02-APR-04   User-ControlFrm ausgelagert         *)
(*                                  Der Benutzer sieht nur eigene Kompo-*)
(*                                  nenten in ControlFrm                *)
(*               2.3    02-JAN-05   s. Doc.                             *)
(*               2.4    29-APR-05   Light-Version                       *)
(*                                                                      *)
(* known bugs  :                                                        *)
(* ******************************************************************** *)
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ShellApi, Menus, Buttons, 
  uGrafik, uInfoBox,
  uWelt, uTrainingscamp, uMyWorld,  // die Fachklassen nach Bedarf
  uBaum, uCritter;

type
  TFensterFrm = class(TForm)
    WeltImg       : TImage;
    SpaltenLbl    : TLabel;
    ZeilenLbl     : TLabel;
    MeldePnl      : TPanel;
    ZentralPnl    : TPanel;
    SteuerLbl     : TLabel;
    KontrollPnl   : TPanel;
    MainMenu1     : TMainMenu;
    Welten1       : TMenuItem;
    About1        : TMenuItem;
    Training1     : TMenuItem;
    MyWorld1      : TMenuItem;
    About         : TMenuItem;
    Hilfe1        : TMenuItem;
    Tutorial1     : TMenuItem;

    procedure FormCreate(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure Hilfe1Click(Sender: TObject);
    procedure Training1Click(Sender: TObject);
    procedure MyWorld1Click(Sender: TObject);
    procedure MeldePnlClick(Sender: TObject);
    procedure Meldung(s : string);
    procedure Tutorial1Click(Sender: TObject);
   private
   public
  end;

var
  FensterFrm   : TFensterFrm;
  Zeichenblatt : TZeichenblatt;
  Welt         : TWelt;         // kind of Singleton pattern - global
  Trainingscamp: TTrainingscamp;
  MyWorld      : TMyWorld;